﻿Public Class POInfoColumn
    Private Column_Name As String
    Private Data_Type As String
    Private Column_Type As String
    Private Is_Nullable As String
    Private Column_Key As String '' IN (PRI, UNI, MUL)

    Public Sub New(ByVal ColumnName As String, ByVal DataType As String, ByVal ColumnType As String, ByVal IsNullable As String, ByVal ColumnKey As String)
        MyBase.New()

        Me.Column_Name = ColumnName
        Me.Data_Type = DataType
        Me.Column_Type = ColumnType
        Me.Column_Key = ColumnKey
        Me.Is_Nullable = IsNullable
    End Sub

    Public Function getColumnName() As String
        Return Me.Column_Name
    End Function

    Public Function getDataType() As String
        Return Me.Data_Type
    End Function

    Public Function isNullable() As String
        Return Me.Is_Nullable
    End Function

    Public Function getColumnKey() As String
        Return Me.Column_Key
    End Function
End Class
